home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh25.d64 / listing 18b (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  648b  |  19 lines
  1. 5 REM PROGRAMM ZUM ERZEUGEN EINES
  2. 6 REM     22, READ ERROR
  3. 7 :
  4. 10 POKE 56,31:POKE 52,31:CLR:OPEN 1,8,15,"I"
  5. 20 FORX=0TO80:READA:POKE32768+X,A:NEXT
  6. 30 INPUT"[147] TRACK FUER ERROR 22";T
  7. 40 INPUT"SEKTOR FUER ERROR 22";S
  8. 50 POKE 32777,T:POKE 32834,T:POKE 32781,S
  9. 60 RESTORE
  10. 70 FORX=0TO80:PRINT#1,"M-W"CHR$(X)CHR$(5)CHR$(1)CHR$(PEEK(X+32768)):NEXT
  11. 80 PRINT:PRINT:PRINT"PROGRAMM STARTET"
  12. 90 PRINT#1,"M-E"CHR$(64)CHR$(5):CLOSE1:END
  13. 100 DATA165,18,133,22,165,19,133,23,169,35,133,24,169,1,133,25,32,39
  14. 110 DATA 245,32,86,245,173,12,28,41,31,9,192,141,12,28,169,255,141,3,28
  15. 120 DATA 169,85,141,1,28,80,254,184,80
  16. 130 DATA 254,184,80,254,184,32,0,254,76
  17. 140 DATA 158,253,234,234,234,234,234,234
  18. 150 DATA 234,234,169,35,133,10,169,224,133,2,165,2,48,252,96,0,0,0
  19.